﻿Option Explicit On      ' 
Option Strict On        ' 

' 클래스명 첫글자는 대문자로 시작함
Public Class TemplateForm

#Region "전역 변수 등 정의"

    ' 전역 변수명 첫글자는 대문자로 시작함 (Public, Private 구분없이...)
    ' Variant 타입은 사용하지 않기로 함
    Private Message As String       ' 메세지가 저장됨   (변수 선언인 경우에만 줄 끝 주석 사용함)
    Private CustomerID As String    ' (ID, REF 와 같이 널리 알려진 약어는 전체를 대문자로 표기함)

#End Region



#Region "함수(Sub, Function) 정의"

    ' 함수명 첫글자는 대문자로 선언함
    ' 함수(Sub, Function)의 파라미터로 사용된 변수명은 첫글자를 소문자로 선언함
    Private Sub SaveMsg(ByVal msg As String)
        Message = msg
    End Sub
    ' 공백 라인 1
    ' 공백 라인 2 (각각의 함수 정의 사이에는 공백 라인을 3칸으로 함)
    ' 공백 라인 3
    Private Function GetSavedMsg() As String

        ' 함수(Sub, Function)내에 정의되는 로컬 변수명 첫글자는 소문자로 선언함
        Dim rtn As String
        rtn = Message
        Return rtn
    End Function

#End Region



#Region "이벤트 핸들러 정의"

    ' 이벤트 핸들러 함수명의 첫글자는 대문자로 선언함
    Private Sub TemplateForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("폼 로딩")
    End Sub
    ' 공백 라인 1
    ' 공백 라인 2 (각각의 이벤트 정의 사이에는 공백 라인을 3칸으로 함)
    ' 공백 라인 3
    Private Sub SaveMsgBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveMsgBtn.Click
        SaveMsg(MsgTxt.Text)
        MsgBox("저장되었습니다.")
    End Sub



    Private Sub ShowSavedMsgBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowSavedMsgBtn.Click
        MsgBox(GetSavedMsg())
    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(Config.ReadSetting("appSettings", "Test1"))
        MsgBox(Config.ReadSetting("CONNECT", "Server_UID"))
        Config.WriteSetting("CONNECT", "Server_UID", "lissss")

    End Sub

#End Region



    
End Class